home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / com / lispworks / build-prelude next >
Encoding:
Text File  |  1994-09-27  |  1.1 KB  |  35 lines  |  [TEXT/ttxt]
  1. #!/bin/csh
  2. #
  3. # build-prelude -- recompile the prelude, saving the old one as old-prelude.*
  4. #
  5. #
  6. cd $Y2
  7. setenv PRELUDEBIN $Y2/progs/prelude/lispworks
  8. if (-e $PRELUDEBIN/Prelude.wfasl) then
  9.   rm $PRELUDEBIN/old*
  10.   foreach i ($PRELUDEBIN/Prelude*.{wfasl,scm})
  11.     mv $i $PRELUDEBIN/old-$i:t
  12.     end
  13.   endif
  14. $LISPWORKS <<EOF
  15. (load "com/lispworks/patches/safe-fo-closure.wfasl")
  16. (make-package "MUMBLE-IMPLEMENTATION" :use '("LISP"))
  17. ;; Need a bigger than normal stack for compiling the prelude.
  18. (setf system::*stack-overflow-behaviour* :warn)
  19. ;; Need a big heap to compile the prelude.
  20. ;(lcl:change-memory-management :expand 512 :growth-limit 2048)
  21. ;; If you want to recompile
  22. ;; everything from scratch, execute the "clean" script first, or
  23. ;; else use the "compile" script to do this.
  24. (proclaim '(optimize (speed 3) (safety 0) (compilation-speed 0)))
  25. (load "cl-support/cl-init")
  26. (in-package :mumble-user)
  27. (setf *printers* '(phase-time dump-stat))
  28. ;; Set appropriate compiler settings for processing the prelude.
  29. ;; Don't try to compile the interface files.
  30. (setf *code-chunk-size* 300)
  31. (setf *compile-interface* '#f)
  32. (compile/compile *prelude-unit-filename*)
  33. (lw:bye)
  34. EOF
  35.